﻿Public Class frmEditPOSVenta

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Limpiar(Gb_01)
        Limpiar(Gb_02)
        Limpiar(Gb_03)
        Limpiar(gbValores)

        PSaludoPVTA = 0
        PEmpatiaPVTA = 0
        PEscuchaPVTA = 0
        PIndagacionPVTA = 0
        PDisposicionPVTA = 0
        PPrecisionPVTA = 0
        PComunicacionPVTA = 0
        PCierrePVTA = 0
        puntajeTotalPVTA = 0
        'frmSearchLlamadas.Show()
        Me.Close()
    End Sub

    Private Sub frmEditPOSVenta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'frmSearchLlamadas.Hide()
        'Cargo los Combos con las opciones correspondientes
        CargarOptSaluPVta(cbo_salu)
        CargarOptEmpaPVta(cbo_empatia)
        CargarOptEscPVta(cbo_escucha)
        CargarOptIndPVta(cbo_indagacion)
        CargarOptDisPVta(cbo_disposicion)
        CargarOptPresPVta(cbo_precision)
        CargarOptComPVta(cbo_comunicacion)
        CargarOptCierPVta(cbo_cierre)

        'Cargo las variables globales con los valores correspondientes:
        PSaludoPVTA = txtv01.Text
        PEmpatiaPVTA = txtv02.Text
        PEscuchaPVTA = txtv03.Text
        PIndagacionPVTA = txtv04.Text
        PDisposicionPVTA = txtv05.Text
        PPrecisionPVTA = txtv06.Text
        PComunicacionPVTA = txtv07.Text
        PCierrePVTA = txtv08.Text
        puntajeTotalPVTA = lbl_puntaje.Text
    End Sub

    Private Sub cbo_salu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_salu.SelectedIndexChanged
        Dim valorSal As New C_todosPostVentas
        PSaludoPVTA = valorSal.valorSalu(cbo_salu)
        txtv01.Text = PSaludoPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_empatia_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_empatia.SelectedIndexChanged
        Dim valorEmp As New C_todosPostVentas
        PEmpatiaPVTA = valorEmp.valorEmpatia(cbo_empatia)
        txtv02.Text = PEmpatiaPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_escucha_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_escucha.SelectedIndexChanged
        Dim valorEscucha As New C_todosPostVentas
        PEscuchaPVTA = valorEscucha.valorEscucha(cbo_escucha)
        txtv03.Text = PEscuchaPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_indagacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_indagacion.SelectedIndexChanged
        Dim valorIndagacion As New C_todosPostVentas
        PIndagacionPVTA = valorIndagacion.valorIndagacion(cbo_indagacion)
        txtv04.Text = PIndagacionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_disposicion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_disposicion.SelectedIndexChanged
        Dim valorDisposicion As New C_todosPostVentas
        PDisposicionPVTA = valorDisposicion.valorDisposicion(cbo_disposicion)
        txtv05.Text = PDisposicionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_precision_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_precision.SelectedIndexChanged
        Dim valorPrecision As New C_todosPostVentas
        PPrecisionPVTA = valorPrecision.valorPrecision(cbo_precision)
        txtv06.Text = PPrecisionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_comunicacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_comunicacion.SelectedIndexChanged
        Dim valorComunic As New C_todosPostVentas
        PComunicacionPVTA = valorComunic.valorComunicacion(cbo_comunicacion)
        txtv07.Text = PComunicacionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub cbo_cierre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_cierre.SelectedIndexChanged
        Dim valorCierre As New C_todosPostVentas
        PCierrePVTA = valorCierre.valorCierre(cbo_cierre)
        txtv08.Text = PCierrePVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub

    Private Sub bt_guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_guardar.Click
        Dim ActualizarLLamadaPOSVta As New edit_callsPOSvta
        ActualizarLLamadaPOSVta.updateCallPOSVenta()
        frmSearchLlamadas.Close()
        'frmIndex.Show()
        Me.Close()
    End Sub
End Class